open NEWF,">$ARGV[1]" or die "can't open $ARGV[1]: $!\n";
print NEWF "\xFF\xFE";  #unicode header

open ANSCII,"$ARGV[0]" or die "Can't open $ARGV[0]: $!\n";
@anscii=<ANSCII>;
chomp @anscii;

binmode NEWF;

for($i=0;$i<=$#anscii;$i++){    
        my $output = $anscii[$i];
        $output =~ s/(.)/$1\x00/g;  #\x41 => \x41\x00
        
        print NEWF $output,"\x0D\x00\x0A\x00";
}
close NEWF;
